(defun index (&key (name "stranger"))
  (html ""
	(title "" "my test index")
	(h1 "" (format nil "hello ~a this is LSP" name))))
(defun adding (&key (a "0") (b "0"))
  (setf na (parse-integer a :junk-allowed t))
  (setf nb (parse-integer b :junk-allowed t))
  (setf sumab (+ na nb))
  (html ""
	(title "" "adding page")
	(form (args :name "adding" :action "adding" :method "get")
	      "a:"
	      (input (args :type "text" :name "a" :value a))
	      "b:"
	      (input (args :type "text" :name "b" :value b))
	      (input (args :type "submit" :value "submit")))
	(h1 "" (format nil "Sum:~a" sumab))))
	   